COMMENT ⊗   VALID 00007 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE CAMDRV
C00004 00003	CHGIT:	SPCWAR 1,GO
C00005 00004	GO:	TRNN 4,2
C00010 00005	FIND:	CONI 204,CHAN
C00011 00006	DRIVE:	0
C00012 00007	HUNG:	SETOM HANGED
C00013 ENDMK
C⊗;
TITLE CAMDRV
P←17
S:	TTYUUO 3,[ASCIZ/
TURN POTS TO CENTER OF RANGE,
TYPE <CR> WHEN READY./]
	TTYUUO
	CAIE 15
	JRST S
	TTYUUO
	MOVE P,[XWD 10,PDL]
	SETZM FLAG
STRT:	SPCWAR GO
AROUND:	MOVEI
	CALLI 31
	SKIPN FLAG
	JRST .-2
	SPCWAR 636367
	SKIPN DRIVE
	JRST STRT
CHGIT:	SPCWAR 1,GO
	movei
	calli 31
	skipe DRIVE
	jrst chgit+1
	spcwar 636367
	MOVEI 5,6
	MOVE 7,[POINT 12,AD14]
	TTYUUO 3,[ASCIZ/REF	PAN	TILT	FOCUS	ZOOM	IRIS
/]
DOIT:	ILDB 14,7
	TRC 14,4000
	IDIVI 14,=1000
	ADDI 14,60
	TTYUUO 1,14
	MOVE 14,15
	IDIVI 14,=100
	ADDI 14,60
	TTYUUO 1,14
	MOVE 14,15
	IDIVI 14,=10
	ADDI 14,60
	TTYUUO 1,14
	ADDI 15,60
	TTYUUO 1,15
	TTYUUO 3,[ASCIZ/	/]
	SOJG 5,DOIT
	TTYUUO 3,[ASCIZ/
/]
	jrst strt
GO:	TRNN 4,2
	DISMIS
	MOVE 17,[XWD 10,PDL6]
	MOVEI 6,122000
	PUSHJ P,FIND
	MOVE 10,[POINT 12,AD14]
	MOVE 13,[POINT 7,DRIVE]
	MOVEI 14,3
SPEED:	ILDB 10
	LSH -5
	CAILE 20	;THIS ALLOWS FOR A DEAD BAND
	CAIL 160
	SETZ
	IDPB 13
	SOJGE 14,SPEED
	DATAO 410,DRIVE
	MOVEI 6,772000
	PUSHJ P,FIND
	SETOM FLAG
	CALLI 400024
FIND:	CONI 204,CHAN
	SETZM FLAG
	CONO 204,4250
	CONO 424,@6
	MOVE 5,[-2,,0]
AD11:	MOVEI 3,10
	MOVEI 4,25
	CONI 204,1
	TRNE 1,11000
	JRST AD12
	SOJN 4,.-3
	JRST HUNG
AD12:	TRNE 1,10000
	JRST DAMIT
AD13:	DATAI 204,AD14(5)
	AOBJN 5,AD11
	CONO 424,4000
	CONO 204,@CHAN
	popj p,
DRIVE:	0
PDL:	BLOCK 10
PDL6:	BLOCK 10
AD14:	BLOCK 2
CHAN:	0
FLAG:	0
HANGED:	0
DAMNED:	0
HUNG:	SETOM HANGED
	SETOM FLAG
	CALLI 400024

DAMIT:	SETOM DAMNED
	SETOM FLAG
	CALLI 400024

END S